.*
.*
.*                    +----------+
.*    Macro Name   -   @XDIREF  
.*                    +----------+
.*
.*
.*    Function -
.*             XDI Storage Reference
.*
.*    Syntax -
.*
.*
.*    Operation -
.*
.*
.*    Author -
.*         Name     :  Deru Sudibyo
.*                     Technical Consultant
.*                     Computer Associates
.*                     Indonesia Office
.*                     Wisma BNI-46 34th floor, BNI-46 City
.*                     Jl. Jend. Sudirman, Kav 1, Jakarta Pusat
.*         Copyright:  (C)1998 Deru Sudibyo
.*
.*    Disclaimer -
.*        This macro is developed as a personal support, and is
.*        not a part of CA support matterials.  The purpose is as
.*        a temporary solution or even just a sample.  Therefor,
.*        further modifications and maintenance are client's
.*        responsibilities.
.*
.*    Modification Log -
.*    +--------+------------+--------+---------------------------+
.*     Date    Engineer    V.R.L.  Description               
.*    +--------+------------+--------+---------------------------+
.*    98/02/12 Deru S.     1.0.0.  First development         
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*    +--------+------------+--------+---------------------------+
.*
         MACRO
&LABEL   @XDIREF &ENTRY,&TYPE=CSECT,&AMODE=31,&RMODE=ANY,&PRINT=NOGEN, +
               &XJCLASS=T,&XMCLASS=T,&XMLEVEL=(1,1),&XDISP=(OLD,KEEP), +
               &DSPCODE=YYEDSPC10,&PCROOT=DISPATCH
         COPY  DERGBLVR
         GBLB  &WTXTYPE,&WTXSTRT
         AIF   (T'&ENTRY EQ 'O').NOENTRY
         AIF   ('&ENTRY' EQ 'PROLOG').PROLOG
         AIF   ('&ENTRY' EQ 'START').PROLOG
         AIF   ('&ENTRY' EQ 'BEGIN').PROLOG
         AIF   ('&ENTRY' EQ 'EPILOG').EPILOG
         AIF   ('&ENTRY' EQ 'END').EPILOG
         MNOTE 0,'DER901W &ENTRY is wrong ENTRY, NOENTRY is assumed.'
.NOENTRY AIF   (&WTXSTRT).EPILOG
.*
.*   XDIREF PROLOG
.*
.PROLOG  ANOP
&WTXSTRT SETB  1
DERWTX   &TYPE
         AIF   ('&TYPE' NE 'CSECT').BEGIN
&WTXTYPE SETB  1
DERWTX   AMODE &AMODE
DERWTX   RMODE &RMODE
.BEGIN   ANOP
         DC    CL8'DERWTX'
         @VGLOBAL
         EJECT ,
         MEXIT
.*
.*   XDIREF EPILOG
.*
.EPILOG  ANOP
PHEADER  @EDITHDR DATA,                                                +
               DSPCODE=&DSPCODE,                                       +
               LRECL=128,                                              +
               PREFIX=PH
         SPACE ,
         PRINT &PRINT
         DC    8D'0'
LMODESET MODESET MF=L
LMODSUPV MODESET MODE=SUP,MF=L
LMODSUPZ MODESET MODE=SUP,KEY=ZERO,MF=L
LMODPROB MODESET MODE=PROB,MF=L
LMODPRON MODESET MODE=PROB,KEY=NZERO,MF=L
LMODZERO MODESET KEY=ZERO,MF=L
LMODNZER MODESET KEY=NZERO,MF=L
LEXTRACT EXTRACT WTXEND,MF=L
LWTO     WTO   TEXT=,MF=L
LWTOR    WTOR  TEXT=WTXEND,MF=L
         DS    0D
LOPEN_PARMLIB  OPEN  (,),MODE=31,MF=L
LOPEN_INTRDR   OPEN  (,),MODE=31,MF=L
LOPEN_JES2FILE OPEN  (,),MODE=31,MF=L TYPE=J
LOPEN_LCLDS01  OPEN  (,),MODE=31,MF=L
LOPEN          OPEN  (,),MODE=31,MF=L
LCLOSE_JES2FILE CLOSE (,),MODE=31,MF=L
LCLOSE_LCLDS01 CLOSE (,),MODE=31,MF=L
LCLOSE         CLOSE (,),MODE=31,MF=L
LREAD    READ  XDIDECB,SF,MF=L
LBLDRCD  BUILDRCD ,,,,0,MF=L
LMGCRE   MGCRE MF=L
         DS    0D
XCJCL    @XCOMJOB DATA,                                                +
               CAILIB=CAI.CAILIB,                                      +
               STEPLIB=CAI.XCOM.CAILIB,                                +
               GLOBLIB=CAI.XCOM.NONQUEUE.GLOBAL,                       +
               RESTLIB=CAI.XCOM.NONQUEUE.RESTART,                      +
               CNTLLIB=CAI.XCOM.PARMLIB,                               +
               ROOTDIR=&PCROOT,                                        +
               DISP=&XDISP,                                            +
               CLASS=&XJCLASS,                                         +
               MCLASS=&XMCLASS,                                        +
               MLEVEL=&XMLEVEL,                                        +
               PREFIX=XC
         PRINT &PRINT
         @VDATA
WTXEND   EQU   *
         EJECT ,
         IEFZB4D2
         AIF   (NOT &WTXTYPE).EXIT
         END   DERWTX
.EXIT    ANOP
         MEND
